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-- file errortabdefs.mesa 

-- last modified by Satterthwaite, February 24, 1978 6:06 AM 

DIRECTORY 

ErrorDefs: FROM "errordefs" , 
SymDefs: FROM "symdefs", 
TreeDefs: FROM "treedefs"; 

ErrorTabDefs: DEFINITIONS - 
BEGIN 

CSRptr: TYPE - POINTER TO CompStrRecord; 

CompStrDesc: TYPE ■ RECORD[off set, length: CARDINAL]; 

CompStrRecord: TYPE - RECORD [ 
relativebase: CARDINAL, 

pname: ARRAY TreeDefs. NodeName[assignx . .uparrow] OF CompStrDesc, 
fname: ARRAY TreeDefs .NodeNamefmin. .memory] OF CompStrDesc, 
ErrorMessages: ARRAY ErrorDefs. ErrorCode OF CompStrDesc, 
NodePrintName: ARRAY TreeDefs .NodeName OF CompStrDesc, 
TypePrintName: ARRAY SymDefs .TypeClass OF CompStrDesc, 
ModePrintName: ARRAY SymDefs .TransferMode OF CompStrDesc]; 

END. 


